float abs(float x)
	if x>0 then
		return x;
	else
		return -x;
	end
end
integer factorial(integer n)
	integer fac(integer n,integer prod)
		if n==1 then
			return prod;
		else
			return fac(n-1,n*prod);
		end
	end
	return fac(n,1);
end
integer fib (integer n)
	if n<3 then
		return 1;
	else
		integer a1;
		integer a2;
		integer a3;
		integer i;
		a1=1;
		a2=1;		
		for i=3;i<n;i=i+1 do
			a3=a1+a2;
			a1=a2;
			a2=a3;
		end
		return a3;
	end
end